#!/usr/local/bin/perl

#
# Prelude.
#

use iSOCK::Test::Prelude;

BEGIN {
  use iSOCK::Test::Setup;
  
  iSOCK::Test::Setup->setup;
}

#
# Modules.
#

use iSOCK::Test::Setup;
use Test::WWW::Mechanize::Catalyst qw( iSOCK );

#
# Plan.
#

plan tests => 4; # 5

#
# Mech.
#

my $mech = Test::WWW::Mechanize::Catalyst->new;

$mech->timeout ( $mech->timeout * 2 );

#
# Login.
#

iSOCK::Test::Setup->login ( $mech );

#
# Product.
#

$mech->title_is ( 'iSOCK Specification::Process' );

$mech->follow_link ( text => 'Logout' );

##
## Logout.
##
#
#$mech->title_is ( 'iSOCK Logout' );
#
#$mech->click;

#
# Login.
#

$mech->title_is ( 'iSOCK Login' );
